

PAPF 001 F*FfpuP2 


00001 

00002 

00003 * 

00004 * 

00005 * 

00006 * 

00007 * 

0000e * 

00009 * 


-\ i 


NAN 

pet 


KFFPUP2 

c> 


BY P .SPHPFNMAKFRS DAIF 7 9 04 28 


MONITOR FRPPRAM FOR M6800 SYSTFM 


COMMANDS: 


000 1 0 




* R= 

PRINT 

USFF RFPI 

STFRS 

000 1 1 




* M = 

PRINT 

/ ALTER MFMPRY LPP 

00012 




* PT = 

PRINT 

DUMP VITH 

ASPI I 

00013 




* FF= 

PUNCH 

DUMP SI FORMAT 

0001/1 




* L = 

LOAD PPJFCT PROGRAM 

00015 




* G = 

GO TP 

USFR PROGRAM (ADDRFSS) 

000 16 




* 7= 

HARDVARF TRACF 

MPDF 

00017 




* P = 

PFFSFT 

CAL CUT AT IONS 

00018 




* D= 

SFLFCT 

DFVICF 1 

-F 

000 1 9 




* 




00020 

F 800 




PRG 

JF800 


00021 




* 




00022 


F80P 

JMF TBL. 

FQU 

* 

JUMP TAPLF FOR FIXFD 

00023 

F 800 

7F 

FD24 

XINCH 

JMF 

INFFF 

INPUT CHAR 

0002/1 

F 80 3 

7 F 

FD0D 

XPUTPH 

JMP 

PUTFF 

OUTPUT CHAR 

00025 

F 80 6 

7F 

FP56 

XCPNTL. 

JMF 

CPNTRL 

MONITOR FNTRY 

00026 

F80 9 

7F 

FA85 

XPADR 

JMF 

PA DDR 

PUILD ADDRFSS 

00027 

F80P 

7F 

FA93 

XPYTF 

JMP 

PY TF 

INPUT BYTE 

00028 

F80F 

7F 

FAF 8 

XHFX 

JMP 

INHFX 

HFX CHAR 

00029 

F 81 2 

7F 

FAA5 

XPTSTG 

JMP 

PUTSTG 

OUTPUT CRLF 

000 30 

F 81 5 

7F 

FAAD 

XFDATA 

JMP 

PDATA1 

PRINT STRING 

00031 

F818 

7F 

FC82 

XSADR 

JMP 

SADDR 

GFT PFGA FNPA 

00032 

F81P 

7F 

FP1 0 

XPUT4H 

JMP 

PUT4HS 

OUTPUT Z*HFX 

00033 

F81F 

7F 

FBI 2 

XPUT2H 

JMP 

PUT2HS 

OUTPUT 2HFX 

00034 

F82 1 

7F 

FP1 4 

XPUTS 

JMP 

PUTS 

OUTPUT SPACE 

00035 

F824 

7 F 

FDD5 

XDSCIP 

JMP 

DISCIP 

ACTUAL DISC SPFTVARF 


RFFFF.FNP 


00036 
00037 
00038 
00039 
000 40 
00041 
00042 


* 

* 

* 

* 

♦ 

* 

* 


PROGRAM INCLUDES EXTENSIONS 
THE M6800 INSTUCTIPN SFT 
LIKE THE HFMFNVAY PIPS 68 

EXTENSIONS INCLUDE: 


OF 


00043 

* 





000/i4 

* 

0 


PSHALL 

PUSH ALL RFGISTFRS 

00045 

* 

1 

= 

PULALL 

PULL ALL RFGISTFRS 

00046 

* 

2 

a 

TXAB 

TRANSFER X TO A>B 

00047 

* 

3 

= 

TAPX 

TRANSFER A>P TO X 

00048 

* 

4 


XAPX 

FXCANPF A*P VITH X 

00049 

* 

5 

= 

PSHX 

PUSH X ONTO STACK 

00050 

* 

6 

= 

PULX 

PULL X FROM STACK 

000 51 

* 

7 

= 

ADDXAP 

ADD X TP A.*P 

000 52 

* 

8 

= 

ADDAPX 

ADD A,B TO X 

00053 

* 

9 


ADDAX 

ADD A TO X 

0005/1 

*10 

= 

ADDBX 

ADD P TO X 


ONTO STACK 
FROM STACK 










PAPF 002 


KFFPUP2 


00055 




*11 = 

SUPXAP SUPTRACT X FROM A,P 

000 56 




*12 = 

SUPAPX SUPTRACT A,P FRCM X 

00057 




*13 = 

SUP AX 

SUPTRACT A FROM X 

000 58 




*14 = 

SUPPX 

SUPTRACT P FRCM X 

00059 




*15 = 

MUL.8 

MULTIPLY A VITH P TO A,P 

000 60 




*16 = 

MUL16 

MULTIPLY A*P VITH X TO A,P, 

00061 




*17 = 

MOVC 

PLCCK MCVF (TO 255 CHAR) 

00062 




*18 = 

CMPC 

PLCCK COMPARF 

0006 3 




*19 = 

MOVS 

PLCCK MCVF STRINP 

00064 




*20 = 

IKDFX 

X= X+ A*P 

00065 




* 



00066 




* 



00 0 6 7 


F000 

ACIA 

FQU 

SF000 CONSOLE DEVICF 

00068 


F002 

ACIA2 

FQU 

JF002 TELETYPE DEVICE 

00069 


F004 

TRACAD 

FQU 

SF004 HARDVARE TRACE COUNTER 

00070 




********************************************* 

00071 




* 



00072 




* SVIHDR SVI 

INPUT 

00073 




* 



0007 4 

F827 

30 


SVIHDR 

TSX 


0007 5 

F828 

FF 

05 


LDX 

* 

* 

IT) 

00076; 

F82A 

4F 



CLR A 


00077 

F82B 

F6 

00 


LDA P 

0> X 

00078 

F82D 

Cl 

14 


CMP P 

#20 

00079 

F82F 

23 

05 


PLS 

*+7 

00080 




* 



00081 

F83 1 

FE 

F 104 


LDX 

SVIVFC COTO VECTORFD SVI 

00082 

F834 

6F 

00 


JMF 

X 

00083 




* 



00084 

F836 

58 



ASL P 

*2 

00085 

F837 

49 



RCL A 


00086 




* 



00087 




* 



00088 




* CALCULATF THF ADDRFSS CF THF 

00089 




* APPRCFIATF 

PROCFSSINP ROUT INF 

00090 




* 



00091 

F838 

8D 

00 


BSR 

STRT 

00092 




* 



00093 

F83A 

30 


STRT 

TSX 


00094 

F83B 

FP 

01 


ADD P 

1 ,X 

00095 

F83D 

A9 

00 


ADC A 

0,X 

00096 




* 



****FRROR 

2 10 




00097 

F83F 

CP 

AD 


ADDP 

#DSPTAP 

00098 

F84 1 

89 

01 


ADC A 

#DSPTAP/256 

00099 




* 



00100 

F 8^3 

A7 

00 


STA A 

0,T 

00101 

F845 

F7 

01 


STA P 

1 >X 

00102 

F847 

FF 

00 


LDX . 

0,X 

00103 

F8*9 

FP 

01 


ADD P 

1 >x 

00104 

F8*P 

A9 

00 


ADC A 

0>X 

00 10 5 




* 



00106 

F84D 

30 



TSX 


00107 

F84E 

A7 

00 


STA A 

0,X 







L_ 


PAGE 003 






t 


HFFPUG3 


00108 

F850 

E7 01 


STA P 

1 iX 

00109 



* 



00110 

F852 

A6 02 


LDA A 

2,X 

00111 

F854 

06 


TAP 


00112 

F855 

EE 00 


LDX 

0,X 

00113 



* 



00114 

F857 

31 


INS 


00115 

F858 

31 


INS 


00116 



* 



00117 

F859 

AD 00 


JSR 

0,* 

00118 



* 



00119 

F85P 

30 


TSX 


00120 

F85C 

6C 06 


INC 

6,X 

00121 

F85E 

26 02 


ENE 

* + 4 

00122 



* 



00123 

F860 

6C 05 


INC 

5>X 

00124 

F862 

3P 


RTI 


00125 



******************** 

00126 



* USER 

REGISTFR EQUA 

00127 



* 



00128 


0002 

uc 

EQU 

2 

00129 


0003 

UB 

EQU 

3 

00130 


0004 

UA 

EQU 

4 

00131 


0005 

UXH 

F.QU 

5 

00132 


0006 

UXL 

EQU 

6 

00133 


0007 

URH 

EQU 

7 

00134 


0008 

URL 

EQU 

8 

00135 



* 



00136 



******************** 

00137 



* 



00138 



* PROCESSING 

ROUTINE 

00139 



* 



00140 



* 



00141 



******************** 

00142 



* PSHALL 


00143 



* 



00144 

F863 

34 

PSHAL 

DES 


00145 

F864 

34 


DES 


00146 

F865 

34 


DFS 


00147 

F866 

34 


DFS 


00148 

F867 

34 


DES 


00149 



* 



00150 

F86 8 

C6 09 


LDA P 

#9 

00151 

F86A 

30 


TSX 


00152 



* 



00153 

F86P 

A6 05 

PSHALS 

LDA A 

5,X 

00154 

F86D 

A 7 00 


STA A 

0^X 

00155 

F86F 

08 


IN* 


00156 

F870 

5A 


DEC. P 


00157 

F 87 1 

26 F8 


PNF 

PSHALS 

00158 



* 



00159 

F873 

C6 05 


LDA P 

#5 

00160 

F87 5 

30 


TSX 


00161 



* 




CALL FRCC. ROUTINE 


RETURN TO USFR 
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0016? F 876 A 6 02 

PSHALC 

LDA A 

UC,X 

00163 F878 A7 09 


STA A 

UC+7 ,X 

00164 F87A 08 


I NX 


00165 E87B 5A 


DEC P 


00166 F87C 26 F 8 


PNE 

PSHALC 

00167 

* 



00168 F87F 39 


RTS 


00169 

***************************************** 

00170 

* PULALL 


00171 

* 



00172 F87F 30 

FULAL 

TSX 


00173 F880 C 6 05 


LDA E 

#5 

00174 

* 



00175 F882 A 6 09 

PUL. AC 

LDA A 

UC+7 , X 

00176 F884 A7 02 


STA A 

uc,x 

00177 F 886 08 


I NX 


00178 F887 5A 


DFC P 


00179 F 888 26 F 8 


PNF 

PULAC 

00180 

* 



00181 F 88 A C 6 09 


LDA P 

#9 

00182 

* 



00183 F 88 C A 6 03 

PULALS 

LDA A 

URL-5,X 

00184 F 88 E A7 08 


STA A 

URL, X 

00185 F890 09 


DFX 


00186 F891 5A 


DEC P 


00187 F892 26 F 8 


PNE 

PULALS 

00188 

* 



00189 F894 31 


INS 


00190 F895 31 


INS 


00191 F896 31 


INS 


00192 F897 31 


INS 


00193 F898 31 


INS 


00194 

* 



00195 F899 39 


RTS 


00196 

************* 

**************************** 

00197 

* TXAF 



00198 

* 



00199 F89A 30 

TXAF 

TSX 


00200 F89B A 6 05 


LDA A 

UXH, X 

00201 F89D F 6 06 


LDA P 

UXL, X 

00202 

* 



00203 F89F A7 04 

STAF 

STA A 

UA , X 

00204 F 8 A1 F7 03 


STA P 

UP,X 

00205 

* 



00206 F8A3 39 


RTS 


00207 

****** 

********************************** 

00208 

* TAFX 


—— 

00209 

* 



00210 F8A4 30 

TAFX 

TSX 


00211 F8A5 A 6 04 


LDA A 

UA, X 

00212 F8A7 A7 05 


STA A 

UXH, X 

00213 F8A9 A6 03 


LDA A 

UF,X 

00214 F8AF A7 06 


S7A A 

UXL , X 

00215 

* 
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00216 

00217 

00218 

00219 


F8AD 39 


RTS 

****** ********************************** 
* XABX 


00220 

F8AE 

30 


XAPX 

TSX 


00221 

F8AF 

A6 

05 


LDA A 

UXH,X 

00222 

F8P1 

36 



PSH A 


00 223 

F8P2 

E6 

06 


LDA P 

UXL,X 

00224 

F8P4 

8D 

EF 


BSR 

TABX+1 

00225 

F8P6 

32 



PUL A 


00226 

F8B7 

20 

F6 


. PRA 

STAP 


00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
0026 1 
00262 
00263 
0026/1 

00265 F8F3 31 
00266 F8F4 31 
00267 

00268 F8F5 39 
00269 


F8P9 34 
F8PA 34 
F8PP 30 
F8BC 86 09 

F8PE E6 02 
F8C0 E7 00 
F8C2 08 
F8C3 4A 
F8C4 26 F8 

F8C6 30 
F8C7 A6 05 
F8C9 A7 09 
F8CP A6 06 
F8CD A7 0A 

F8CF 39 


F8D0 30 
F8D1 A6 09 
F8P3 A7 05 
F8D5 A.6 0A 
F8D7 A7 06 

F8D9 86 09 

F8DP F6 08 
F8DD F7 0A 
F8DF 09 
F8E0 4A 
F8E1 26 F8 


**************************************** 

* PSHX 

* 

PSHX DFS 
DFS 
TSX 

LDA A #9 

* 

FSHXA LDA P 2,X 
STA P 0,X 
I NX 
DEC A 
BNE 


PSHXA 


TSX 


* PULX 

* 

PULX 


LDA A 

UXH, X 

STA A 

UXH+4, X 

LDA A 

UXL> X 

STA A 

UXL+4,X 

RTS 

► **************; 

TSX 

LDA A 

UXH+4, X 

STA A 

UXH, X 

LDA A 

UXL+4,X 

STA A 

UXL, X 

LDA A 

#9 

LDA P 

8,X 

STA P 
DFX 

DEC A 

10,X 

BNE 

INS 

INS 

FULXA 

RTS 

:************+** 
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00270 




* ADDXAB 



00271 




* 



00272 

F8E6 

30 


ADXAB TSX 



00273 

F8E7 

8D 

C6 

BSR 


XAPX+1 

00274 

F8F9 

8D 

03 

PER 


ADAFX+1 

0027 5 

F8FB 

20 

C2 

BRA 


XAPX+1 

00276 




*************************************** 

00277 




* ADDAPX 



00278 




* 



0027 9 

F8ED 

30 


ADABX TSX 



00280 

F8EF 

A6 

03 

LDA 

A 

UF>X 

00281 

F8F0 

E6 

04 

LDA 

B 

UAj X 

00282 




* 



00283 

F8F2 

AB 

06 

APDAP ADD 

A 

UXL* X 

00284 

F8F4 

A7 

06 

STA 

A 

UXL,X 

00285 




* 



00286 

F8F6 

E 9 

05 

ADC 

B 

UXH* X 

00287 




* 



00288 

F8F8 

07 


STAUXH TPA 



00289 

F8F9 

E7 

05 

STA 

P 

UXH* X 

00290 

F8FB 

6D 

06 

TST 


UXL* X 

00291 




* 



00292 

F8FD 

27 

02 

TESTZ PEQ 


TESTZA 

00293 




* 



00294 

F8FF 

84 

FB 

AND 

A 

#SFP 

00295 




* 



00296 

F90 1 

A7 

02 

TESTZA STA 

A 

UC,X 

00297 




* 



00298 

F90 3 

39 


RTS 



00299 




*************************************** 

00300 




* ADDAX 



00301 




♦ 



00302 

F904 

30 


ADDAX TSX 



00303 

F90 5 

A6 

04 

LDA 

A 

UAiX 

00304 




* 



00305 

F907 

C6 

00 

ADDZ LDA 

P 

#0 

00306 

F909 

20 

F7 

PRA 


ADDAP 

00307 




*************************************** 

00308 




* ADDPX 



00309 




* 



00310 

F90B 

30 


ADDPX TSX 



00311 

F90C 

A6 

03 

LDA 

A 

UFjX 

00312 

F90E 

20 

F7 

PRA 


ADDZ 

00313 




*************************************** 

00314 




* SUPXAP 



00315 




* 



003 16 

F910 

30 


SPXAP TSX 



00317 

F 91 1 

8 D 

9C 

PER 


XAPX+1 

00318 

F91 3 

8D 

03 

PER 


SPAPX+1 

00319 

F91 5 

20 

98 

PRA 


XAPX+1 

00320 




*************************************** 

00321 




* SFAFX 



00322 




* 



00323 

F917 

30 


SFAFX TSX 










PAGE 007 KEFEUG2 


00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 


F918 

F91A 

F91C 

F91E 

F920 

F922 


E6 05 
A6 06 

A0 03 
A7 06 

F2 04 
20 D4 


LDA 

P 

UXH* X 

LDA 

A 

UXL*X 

SUP 

A 

UE* X 

STA 

A 

UXLjX 

SPC 

BRA 

P 

UAjX 

STAUXH 


* SUFAX 


00335 

F924 

30 


SUBAX 

TSX 



00336 

00337 

F925 

E6 

04 

* 

LDA 

B 

UA> X 

00338 

F927 

A6 

06 

SUB 

LDA 

A 

UXL* X 

00339 

F929 

10 



SPA 



00340 

00341 

F92A 

A7 

06 

* 

STA 

A 

UXL* X 

00342 

F92C 

E6 

05 


LDA 

P 

UXH* X 

00343 

F92E 

C 2 

00 


SBC 

B 

#0 

00344 

F930 

20 

C6 


PRA 


STAUXH 


00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

003 53 

00354 

00355 

00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00368 

00369 

00370 

0037 1 

00372 

00373 

0037 4 

0037 5 

00376 

00377 


********************* + + * + + + + J([ + + J|[j)t + + + + s)r 

* SUPPX 

* 

F932 30 SUEFX TSX 

F933 F6 03 LDA B UB,X 

F935 20 F0 ERA SUP 

********* + *************************,),** 

* INDEX 

* 

F937 8D 38 INDEX PER MPY8 

F939 37 PSH P 

F93A 16 TAP 

F93P 32 PUL A 

F93C 30 TSX 

F93D 20 F3 BRA ADDAP 

************************************** 
* MUL 8 


F93F 

8 D 

30 

NUL8 

ESR 


MPY8 

F94 1 

30 



TSX 



F942 

E7 

03 


STA 

B 

UBjX 

F944 

A7 

04 


STA 

A 

UA> X 

F946 

07 



TPA 



F947 

5D 



TST 

P 


F9*8 

20 

P3 

▼ 

JNPTZ 

PRA 


TESTZ 


************************************** 

* NUL 16 

* 

F94A 86 10 NUL16 LDA A #16 

F94C 36 PSH A 

F94D 30 TSX 

F94E 4F CLR A 
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00378 

F94F 

5F 



CLR F 


0037 9 

F950 

66 

06 


RCR 

UXH+1,X 

00380 

F952 

66 

07 


RCR 

UXL+1> X 

00381 




* 



00382 

F954 

24 

04 

MUL16L 

FCC 

WUL16S 

00383 

F956 

EB 

04 


ADD B 

UP +1 > X 

00384 

F958 

A 9 

05 


ADC A 

UA +1 * X 

00385 




* 



00386 

F95A 

46 


KJL16S 

RCR A 


00387 

F95B 

56 



RCR E 


00388 

F95C 

66 

06 


RCR 

UXH+1,X 

00389 

F95E 

66 

07 


RCR 

UXL +1 * X 

00390 

F960 

6 A 

00 


DEC 

0,X 

00391 

F962 

26 

F0 


BNE 

WUL16L 

00392 




* 



00393 

F964 

31 



INS 


00394 

F965 

30 



TSX 


00395 

F966 

E7 

03 


STA F 

UP* X 

00396 

F968 

A7 

04 


STA A 

UA* X 

00397 




* 



00398 

F96A 

07 



TPA 


00399 

F96F 

FA 

05 


CRA F 

UXH* X 

00400 

F96D 

A A 

06 


CRA A 

UXL* X 

00401 




* 



00402 

F96F 

20 

D7 


BRA 

JMPTZ 

00403 




************************************** 

00404 




* NFY 8 


00405 




* 



00406 

F97 1 

86 

08 

MPY8 

LDA A 

#8 

00407 

F973 

36 



FSH A 


00408 




* 



00409 

F974 

4F 



CL.R A 


00410 

F97 5 

30 



TSX 


00411 

F976 

E6 

06 


LDA F 

UF + 3 * X 

00412 

F97 8 

56 



RCR F 


00413 




* 



00414 

F979 

24 

02 

MFY8L 

FCC 

NPY8S 

00415 




* 



00416 

F97B 

AF 

07 


ADD A 

UA + 3* X 

00417 




* 



00418 

F97D 

46 


MPY8S 

RCR A 


004 19 

F97E 

56 



RCR P 


00420 

F97F 

6 A 

00 


DFC 

0*X 

00421 

F98 1 

26 

F6 


PNF 

NPT8L 

00422 




* 



00423 

F983 

31 



INS 


00424 

F 9.8.4 

39 



RTS 


00425 




************************************** 

00426 




* MCVC 



00427 




* 



00 4 2 8 


0009 

FROM 

FQU 

9 

00429 


0 00P 

TCC 

ECU 

1 1 

00430 




* 



00431 

F985 

30 


MOVC 

TSX 
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I 


00432 

00433 

00434 

00435 

00436 

00437 

00438 

00 4 3 9 

00440 

00441 

00442 

00443 

00444 

00445 

00446 

00447 

00448 

00449 

00450 

00451 

00452 

00453 

00454 

00455 

00456 

00457 

004 5 8 

00459 

00460 

00461 

00462 

00463 

00464 

00465 

00466 

00467 

00468 

00469 

00470 

00471 

00472 

00473 

00474 
0047 5 
00476 
00477 
00478 
00479 
00480 
00481 
00482 
00483 
00484 
00485 


F986 E6 03 


F98C 30 


F991 30 
F992 5A 


F999 6C 09 


F9A3 39 


03 

* 

LDA 

B 

UP* X 

09 

MOVC 1 

LDX 


FROM*X 

00 

♦ 

LDA 

A 

0*X 



TSX 



0B 


LDX 


TOOjX 

00 

* 

STA 

A 

0,X 



TSX 





DEC 

B 


0E 

* 

BEQ 


M0VC3 

0A 


INC 


FROM+l^X 

02 

* 

BNE 


MCVC2 

09 

* 

INC 


FROM,X 

0C 

MOVC 2 

INC 


TOO+1iX 

F9 

* 

BNE 


MOVC 1 

0B 


INC 


TOO* X 

F5 

* 

BRA 


MOVC 1 


MOVC3 

RTS 




F9A4 

F9A5 

F9A7 

F9A9 

F9AB 

F9AC 

F9AE 

F9B0 

F9F2 

F9F3 

F9B5 


0009 
0 00B 

30 

F6 03 

EF 09 
A6 00 

30 

EE 0B 
A 1 00 
26 10 

30 

6C 0A 
26 02 


F9B7 6C 09 


F9B9 

F9PB 


F9FD 

F9BF 


6C 0C 
26 02 

6C 0F 

5 A 


GET COUNT 

GET CHARACTER 

MOVE CHARACTER 

DONE 


*************** + ** ++++ ** ++++++++++++++ 

* CMPC 

* 

PARM1 EQU 9 
PARM2 EQU 11 
* 


CMPC 

* 

CMP0 


TSX 

LDA B UB,X 

LDX FARM 1> X 
LDA A 0,X 


TSX 

LDX 


PARM2,X 


CMP A 0,X 
BNF CDONF 


GET COUNT 

GET A CHAR 


MATCH? 

NO 


* 

CMP 1 


* 

CMF2 


TSX 

INC 

BNE 

INC 

INC 

BNE 

INC 

DFC P 


PARM1+1,X 
CMP 1 

FARM 1> X 

PAP.M2+ 1 *X 
CMP2 

FARM2> X 


ALL DONE? 
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00486 

F9C0 

26 

F5 


BNE 


CMP0 

00487 




* 




00488 

F9C2 

30 


CDPNE 

TSX 



00489 

F9C3 

07 



TFA 



00490 

F9C4 

A7 

02 


STA 

A 

UC*X SET CC 

00491 

F9C6 

E7 

03 


STA 

B 

UB*X SET B 

00492 




* 




00 4 93 

F9C8 

39 



RTS 



00494 




*************************************** 

00495 




* MOVS 




00496 




* 




00497 

F9C9 

30 


MOVS 

TSX 



00498 




* 




00499 

F9CA 

EE 

09 

MCVS1 

LDX 


FROM* X 

00500 

F9CC 

A6 

00 


LDA 

A 

0*X GET CHAR 

00501 




* 




00502 

F9CE 

30 



TSX 



00503 

F9CF 

EE 

0B 


LDX 


TOO*X 

00504 

F9D1 

A7 

00 


STA 

A 

0*X MOVE CHAR 

00505 




* 




00506 

F9D3 

30 



TSX 



00507 

F9D4 

81 

04 


CMP 

A 

#4 DONE? 

00508 

F9D6 

27 

0E 


BFQ 


M0VS3 ;yes 

00509 




* 




00510 

F9D8 

6 C 

0 A 


INC 


FRCM+1 * X 

00511 

F9DA 

26 

02 


BNE 


M0VS2 

00512 




* 




00513 

F9DC 

6 C 

09 


INC 


FROM* X 

00514 




* 




00515 

F9DE 

6 C 

0C 

M0VS2 

INC 


TOO+1 * X 

00516 

F9F0 

26 

E8 


BNE 


MOVS 1 

00517 




* 




00518 

F9E2 

6 C 

0B 


INC 


TOO*X 

00519 

F9E4 

20 

E4 


BRA 


MOVS 1 

00520 




* 




00521 

F9F6 

39 


t*0VS3 

RTS 



00522 




*********************************** 

00523 




* DISPATCH 

TABLE FOR PROCESSING ROUTINE: 

00524 




* 




00525 


0 1 AD 

DSPTAB 

EQU 


♦-STRT 

00526 




* 




00527 

F9F7 

FF7C 


FDB 


*-PSHAL*$FFFF 0 

00528 

F9E9 

FF96 


FDP 


♦-FULAL+SFFFF 1 

00529 

F9EP 

FFAF 


FDB 


♦-TXAF+SFFFF 2 

00530 

F9FD 

FFP7 


FDB 


♦-TAPX+SFFFF 3 

00531 

F9FF 

FFBF 


FDB 


*-XABX*$FFFF 4 

00532 

F9F1 

FFC8 


FDB 


♦ -PSHX* SFFFF 5 

00533 

F9F3 

FFDD 


FDB 


♦-PULX+SFFFF 6 

00534 

F9F 5 

FFF 1 


FDB 


♦-ADXAF+SFFFF 7 

00535 

F9F7 

FEF6 


FDB 


*-ADABX*$FFFF 8 

00536 

F9F 9 

FF0B 


FDB 


*-ADDAX*fFFFF 9 

00 537 

F9FB 

FF1 0 


FDB 


♦-ADDPX+SFFFF 10 

00538 

F9FD 

FF1 3 


FDB 


*-SFXAF*$FFFF 11 

00539 

F9FF 

FF 1 8 


FDB 


*-SFAP> * SFFFF 12 
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00 5 40 

FA0 1 

FF2 3 

FDB 

*-SUBAX*5FFFF 

13 

00541 

FA03 

FF2F 

FDB 

*-SUBBX*5FFFF 

14 

00 542 

FA05 

FF3A 

FDE 

*-MUL8*5FFFF 

15 

00543 

FA07 

FF43 

FDB 

*-MUL16 *$FFFF 

16 

00544 

FA09 

FF7C 

FDB 

*-MCVC*SFFFF 

17 

00545 

FA0B 

FF99 

FDB 

♦-CMPC+SFFFF 

18 

00546 

FA0D 

FFBC 

FDB 

*-MOVS*$FFFF 

19 

00547 

FA0F 

FF28 

FDB 

*-INDEX*JFFFF 

20 


00 548 
00549 
00550 
00551 


************************************** 

* 

* START OF THE MONITOR PART 

* 


f£ C 


00552 

FA 1 1 

FE 

F100 

10 

LDX 

IOV 

LOAD IRQ RAM VECTOR 

00553 

FA 14 

6 E 

00 


JMP 

X 

GOTO IT 

00554 




* 




00555 

FA 16 

FE 

F 102 

POVDVN 

LDX 

NIC 

LOAD NMI RAM VECTOR 

00556 

FA 19 

6 E 

00 


JMP 

X 

GOTO IT 

00557 




* 




00558 

FA IB 

86 

1 1 

RDRON 

LDA A 

#5 1 1 

DC 1 CODF 

00559 

FA ID 

BD 

FA7F 


JSR 

OUTCH 


00560 

FA20 

B6 

FI IP 

NOECHO 

LDA A 

STATUS 

SET NCECHO BIT 

00561 

FA23 

8 A 

80 


ORA A 

#580 


00562 

FA25 

7E 

FC 10 


JMP 

ECHO 1 


00563 




************************************* 

00564 




* LOAD 

OBJECT 

FILE 


00565 




* 




00566 

FA28 

8 D 

FI 

LOAD 

BSR 

RDRON 

PUT READER ON 

00567 

FA2A 

BD 

FA82 

■fcf-AD3— 

-t tsn - 

~ INC FT 

LOCK FOR HEADER 

00568 

FA2D 

81 

53 


CMP A— 



0056 9 

FA2F 

26 

F9 


-BNE-- 

-fcrCArD3 

NCT FOUND 

00570 

FA3 1 

ED 

FA82 


-JSR - 

-FNetr 


00571 

FA34 

81 

30 


CM£-A— 

■#■* 0- 

SEARCH HEADER 

00572 

FA36 

26 

F2 


.-frttE- — 

-LOAD 3 

STILL NCT FOUND 

00573 




* 


Loci, o^j 


00574 

FA38 

86 

07 


LDA A 

#57 

FOUND BELL ! 

0057 5 

FA 3 A 

ED 

FA7F 


JSR 

OUTCH 


00576 




************* 



00577 

FA3D 

8 D 

43 

L0AD4 

BSR 

INCH 

START LOAD DATA BLOCH 

00578 

FA3F 

81 

53 


CMP A 

#' S 


00579 

FA41 

26 

FA 


PNF 

LCAD4 


00580 

FA43 

8 D 

3D 


BSR 

INCH 


00581 

FA45 

81 

39 


CMP A 

# ' 9 

END RECORD? 

00582 

FA47 

27 

25 


EEQ 

L0AD21 

YFS 

00583 

FA49 

81 

31 

s 

CMP A 

# ' 1 


00584 

FA4P 

26 

F0 

( 

PNE 

L0Ar4 


00585 




* ^ 

< c &h A 

xjL* 


00586 

FA4D 

7F 

F 11 6 


CLR 

CKSM 


00587 

FA 50 

8B-"41 


BSR 

PYTE 

GET PYTE COUNT 

00588 

FA 52 

80 

02 


SUP A 

#2 

ADJUST IT 

00589 

FA 54 

P7 

FI 18 


STA A 

BYTEC 1 

SAVE IT 

00590 

FA57 

8 D 

2 C 


BSR 

PADDR 

GET FIRST LOC 

00591 

FA59 

8 D 

38 

L0AD11 

BSR 

BYTE 

GET THE DATA 

00592 

FA5B 

7A 

FI 18 


DEC 

PYTFC1 

DECREMENT COUNT 

00593 

FA5F 

27 

05 


PFQ 

LOAD15 

GO CHFCK THE PLOCK 
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00594 FA60 A7 00 
00595 FA62 08 
00596 FA63 20 F4 
00597 

00598 FA65 7C FI 16 
00599 FA68 27 D3 
00600 

00601 FA6A 86 3F 
00602 FA6C 8D 11 
00603 

00604 FA6E 

00605 FA6E 7E FB56 
00606 
00607 

00608 FA71 44 
00609 FA72 44 
00610 FA73 44 
00611 FA74 4 4 
00612 FA75 84 0F 
00613 FA77 8B 30 
00614 FA79 8 1 39 
00615 FA7B 2 3 02 
00616 FA7D 8B 07 
00617 
00618 

00619 FA7F 7E FD0D 
00620 FA82 7E FD24 
00621 
00622 

006‘23 FA85 8D 0C 
00624 FA87 B7 FI 14 
00625 FA8A 8D 07 
00626 FA8C B7 FI 15 
00627 FA8F FE FI 14 
00628 FA92 39 
00629 
00630 

00631 FA93 8IX 53 
00632 FA95 48'' 

00633 FA96 48 
00634 FA97 48 
00635 FA98 48 
00636 FA99 16 
00637 FA9A 8D 4C 
00638 FA9C IB 
00639 FA9D 16 
00640 FA9F. FB FI 16 
00641 FAA1 F7 FI 16 
00642 FAA4 39 
00643 
00644 

00645 FAA5 CE FF98 
00646 FAA8 20 03 
006 47 



STA A 

I NX 

X 

SAVE DATA 

PUMP POINTFR 

* 

BRA 

LCAD11 

FND CONTINUE 

LOAD15 

INC 

CKSM 

CORRECT LOADED? 

$ 

BEQ 

LCAD4 

YES 

OUTQM 

ak 

LDA A 
ESR 

#• ? 

OUTCH 

OUTPUT QUFSTIONMARK 

T 

LCAD21 

EQU 

* 


Cl 

JMP 

CONTRL 

GOTO MONITOR 

******** ***************************** 

* 

OUTHL LSR A 

LSR A 

LSR A 

LSR A 

OUTFR 

AND A 

#SF 

MASK OFF BITS 


ADD A 

#530 

MAKE ASCII 


CMP A 

#539 

NUMBERS? 


BLS 

ADD A 

OUTCH 

#7 

AND RTS 


a|ca|r a |c 5 |t 5 f f + 5 fc 3 | c ^ 3 #r 3 |f + 5 j c ^ + + + + 3#f + 5<ca#t3#t + +3 ( c + 3#c + 3|f3(fa(e + + j|ca j c3|c3fc 

* 


OUTCH JNF CUTEE STEPPING STONE 

INCH JNP INEEF TOC 


* 

PA DDR 

BSR 

EYTE 

CONVFRT 

2 BYTES INTO ADDRESS 


STA A 

XHI 




BSR 

BYTE 




STA A 

XLO 



BADRI 

LDX 

XHI 

ADDRESS 

VE BUILT 


RTS 





^ + + + + + + + + + + + + + + + + + 
* 


EYTE 

BSR 


INHEX 

CONVERTS 2 HEX CHAR INTO BYTE 


ASL 

A 




ASL 

A 




ASL 

A 




ASL 

A 


SHIFT 4 PLACES TO THE LEFT 


TAP 





BSR 


INHEX 



ABA 



COMBINE CHAR 


TAP 





ADD 

B 

CKSM 

UPDATE CHECKSUM —' 


STA 

B 

CKSM 



RTS 




************* 

* 

** + 3#c + + 3|c3*e3|e + a|e + 3|t5|c3#c3#f + 3fc + %^ 3 |caf:3fcafc 

OUTSTG 

LDX 


#MCL 1 

CRLF STRING 


BRA 


FDA TA1 

OUTPUT IT 


* 
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00648 

FAAA 

8 D 

D3 

PDATA2 

BSR 

DUTCH 


00649 

FAAC 

08 



INX 



00650 

FAAD 

A6 

00 

PDATA1 

LDA A 

X 

GET A CHAR 

00651 

FAAF 

81 

04 


CMP A 

#4 

END OF STRING? 

00652 

FAB1 

26 

F7 


BNF 

PDATA2 

NOT YET 

00653 

FAB 3 

39 



RTS 



00654 




************************************** 

00655 




* 




00656 

FAB4 

8 D 

CF 

CHANGE 

BSR 

BA DDR 

GET ADDRESS OF LOC 

00657 

FAB 6 

8 D 

5C 


BSR 

OUTS 


00658 

FAP8 

8 D 

4B 

CHA1 

BSR 

0UT2H 

OUTPUT CONTENTS 

00659 

FABA 

8 D 

C6 


ESR 

INCH 

GET COMMAND 

00660 

FABC 

81 

0 D 


CMP A 

#$D 

TERMINATE? 

00661 

FABE 

27 

AE 


BEQ 

Cl 

YES 

00662 

FAC0 

81 

5E 


CMP A 

# • t 


00663 

FAC2 

27 

20 


BEQ 

CHA11 

PREVIOUS LOC 

00664 

FAC4 

81 

20 


CMP A 

#$20 


00665 

FAC6 

26 

0D 


BNF 

CHA 12 

NO CHANGE OF DATA 

00666 

FAC8 

8 D 

C 9 


BSR 

BYTE 

NEV DATA 

00667 

FAC A 

09 



DEX 


ADJUST POINTER 

00668 

FACE 

A7 

00 


STA A 

X 

STORE DATA 

00669 

FACD 

A 1 

00 


CMP A 

X 

DATA CORRECT WRITTEN? 

00670 

FACF 

27 

03 


BFQ 

CHAM 

YES 

00671 

FAD1 

7E 

FA 6 A 

C3 

JMP 

OUTQM 

GO OUTPUT '?’ 

00672 

FAD4 

08 


CHAM 

INX 



00673 

FAD5 

FF 

FI 14 

CHA12 

STX 

XHI 

SAVE POINTER FOR A WHILE 

00674 

FAD8 

8 D 

CB 


BSR 

OUTSTG 


00675 

FA DA 

CE 

FI 14 


LDX 

#XHI 

OUTPUT NEW ADDRESS 

00676 

FADD 

8 D 

31 


BSR 

CUT4HS 


00677 

FADF 

FE 

FI 14 


LDX 

XHI 

GET POINTER 

00678 

FAE2 

20 

D4 


BRA 

CHA 1 


0067 9 

FAF4 

09 


CHA1 1 

DEX 


DECREMENT 

00680 

FAE5 

09 



DEX 



00681 

FAE6 

20 

ED 


BRA 

CHA 12 


00682 




************************************** 

00683 




* 




00684 

FAE8 

8 D 

98 

INHEX 

BSR 

INCH 


00685 

FAFA 

80 

30 


SUB A 

#$30 

LOWER AS *0* 

00686 

FAFC 

2B 

0F 


EMI 

ERROR 

NO HFX 

00687 

FAFE 

81 

09 


CMP A 

#$09 


00688 

FAF0 

2 F 

0 A 


BLF 

IN1 HG 

HEX 

00689 

FAF2 

81 

1 1 


CMP A 

#$11 


006 90 

FAF4 

2 F 

07 


PM I 

ERROR 

NO HEX 

006 91 

FAF6 

81 

16 


CMP A 

#$16 


00692 

FAF8 

2 E 

03 


BGT 

ERROR 

NO HEX 

00693 

FAFA 

80 

07 

-s 

SUB A 

#7 

ADJUST 

00694 

FAFC 

39 


INI HG 

RTS 



00695 




**************** 


00696 

FAFD 

FF 

FI IF 

ERROR 

STX 

ERSAVE 

SAVE X 

00697 

FP00 

FF 

F 1 ID 


LDX 

ERRVEC 

GET ERROR ROUTINE 

00698 

FB0 3 

6 F. 

00 


JMP 

X 

GOTO IT 

00699 




* 




00700 




************************************** 

007 01 



/ 

* 
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> ; 

% -i 

> ’} 

W) 

> ~\x\ 

"\ 



00702 

FP05 

A6 

00 

0UT2H 

LDA 

A 

X 

GET A CHAR 


00703 

FB07 

BD 

FA7 1 

0UT2HA 

JSR 


OUTHL 

OUTPUT LEFT CHAR 


00704 

FB0A 

A6 

00 


LDA 

A 

X 


>* > C 

00705 

FB0C 

08 



INX 





00706 

FB0D 

7E 

FA7 5 


JMP 


OUTHR 

OUTPUT RIGHT CHAR +RTS 


00707 




************************************** 

. 1 

00708 




* 





>, 1 

00709 

FB10 

8D 

F3 

0UT4HS 

BSR 


0UT2H 

OUTPUT LEFT 2HEX 

> ' 1 ‘j | 

00710 

FBI 2 

8D 

FI 

CUT2HS 

BSR 


0UT2H 

OUTPUT RIGHT 2HEX 

> 

00711 

FBI 4 

86 

20 

OUTS 

LDA 

A 

#520 

SPACE CHAR 

^ 3 1 

00712 

FBI 6 

7E 

FA7F 


JMP 


OUTCH 

+RTS 


00713 
00714 
00715 
00716 
00717 
00718 
007 1 9 
00720 


************************************** 

* 


RESTART ENTRY 


AC IA 1=CONSCLE DEVICE 


ALL INTERRUPT POINTERS SET 


00721 


FBI 9 

START 

EQU 


* 


00722 

FBI 9 

8E 

F1B4 


LDS 


#TSTACK 

SETUP USER STACKFOINTER 

007 23 

FB1C 

BF 

FI 12 


STS 


TSP 


00724 




* 





00725 

FB1F 

CE 

FBD5 


LDX 


#SFE 

SETUP INTERRUPT POINTERS 

00726 

FB22 

FF 

F 104 


STX 


SWIVEC 

SOFTWARE INTERRUPT 

00727 

FB25 

FF 

FI 02 


STX 


NIO 

NON MASKAELE INT 

00728 

FB28 

FF 

F1&0 


STX 


IOV 

INTERRUPT REQUEST 

00729 




* 





007 30 

FB2B 

86 

03 


LDA 

A 

#3 


00731 

FB2D 

B7 

F002 


STA 

A 

ACIA2 

RESET TTY DEVICE 

00732 

FB30 

B7 

F000 


STA 

A 

ACIA 

RESET CONSOLE DEVICE 

00733 

FB33 

7F 

FI IB 


CLR 


STATUS 

ECHO ON 

00 7 3 4 




* 





007 35 

FB36 

86 

1 1 


LDA 

A 

#5 1 1 

CONTROL WORD FOR ACIA 

00736 

FB38 

B7 

F000 


STA 

A 

ACIA 

VRITE CONSOLE DEVICE 

00737 

FB3B 

B7 

F002 


STA 

A 

ACIA2 

VRITE TTY DEVICE 

00738 




* 





007 39 

FB3E 

CE 

FD41 


LDX 


# I NCR 

SETUP INDIRECT FOE INPUT 

00740 

FB4 1 

FF 

F 108 


STX 


INSWTC 


00741 

FB44 

CE 

FD15 


LDX 


#0 TCR 


00742 

FE47 

FF 

F10A 


STX 


OTSV’TC 


00743 




* 





007 4 4 

FB4A 

CE 

FA6A 

ERRSET 

LDX 


# OUTQM 

SFT TO OUT’?’ 

00745 

FB4D 

FF 

FI ID 


STX 


EP.RVEC 


00746 




* 





00748 

FP50 

CE 

F000 

SETDEV 

LDX 


#AC IA 

SET DEVICE VECTOR CONSOLE 

00749 

FB53 

FF 

FI 06 


STX 


ACIAVC 


00750 




* 





007 51 

FE56 

8 E 

F1F0 

CONTRL 

LDS 


#CSTACK 

GET MONITOR STACKFOINTER 

007 52 

FB59 

PD 

FC07 


JSR 


RDROFF 


007 53 

FE5C 

BD 

FC02 


JSR 


PNHOFF 

TURN READER AND PUNCH OFF 

007 54 




* 





007 55 

FB5F 

CE 

FF 90 


LDX 


#MCL0 

OUTPUT MONITOR PROMPT 

007 56 

FB62 

ED 

FAAD 


JSR 


PDATA1 
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007 57 




* 


007 58 

FB65 

BD 

FD06 


JSR 

007 59 

FP68 

16 



TAB 

00760 

FB69 

8D 

A9 


BSR 

00761 




* 


00762 

FB6B 

Cl 

50 


CMP 

00763 

FB6D 

27 

57 


EEQ 

00764 




* 


00765 

FB6F 

Cl 

4C 


CMP 

00766 

FB71 

26 

03 


BNE 

00767 

FB73 

7E 

FA28 


JMP 

00768 




* 


00769 

FP76 

C 1 

4D 


CMP 

00770 

FB78 

26 

03 


BNE 

00771 

FB7A 

7E 

FAP4 


JMP 

00772 




* 


00773 

FB7D 

Cl 

54 


CMP 

00774 

FB7F 

26 

03 


ENE 

00775 

FB81 

7E 

FD97 


JMP 

00776 




* 


00777 

FB84 

Cl 

4F 


CMP 

00778 

FB86 

26 

03 


BNE 

00779 

FB88 

7E 

FD62 


JMP 

00780 




* 


00781 

FB8B 

Cl 

44 


CMP 

00782 

FB8D 

26 

0A 


BNE 

00783 

FB8F 

BD 

FAE8 


JSR. 

00784 

FP92 

27 

05 


BErQ- 

f 00785 

FB94 

4A 



DEC, 

007 86 

FB95 

48 



ASP 

00787 

FB96 

B7 

F 107 


STA 

00788 




* 


007 89 

FB99 

Cl 

52 

CL 10 

CMP 

00790 

FB9B 

27 

44 


PFQ 

00791 




* 


007 92 

FB9D 

Cl 

47 


CMP 

007 93 

FB9F 

26 

B 5 


BNE 

00794 




* 


00795 

FBA 1 

BD 

FA82 


JSR 

00796 

FBA4 

81 

0D 


CMP 

007 97 

FBA6 

27 

17 


EEQ 

00798 




* 


007 99 

FPA8 

PD 

FAEA 


JSR 

00800 

FBAB 

PD 

FA95 


JSR 

00801 

FPAE 

BD 

FA 87 


JSR 

00802 

FBP 1 

CF 

FI 14 


LDX 

00803 

FBP4 

A6 

00 


LDA 

00804 

FBP6 

E6 

0 1 


LDA 

00805 

FPP8 

FE 

FI 12 


LDX 

00806 

FBPB 

A 7 

06 


STA 

00807 

FBPD 

E7 

07 


STA 

00808 




* 


00809 

FPPF 

PF 

F 11 2 

CONTIN 

LDS 

00810 

FPC2 

73 

F004 


COM 




INCMD 

OUTS 

#• P 
CL 1 

#’L 

* + 5 
LOAD 

* * M 

* + 5 

CHANGE 

#• T 

* + 5 
TRACE 

#•0 

* + 5 

OFFSET 

* ' D 
CL 10 
INHEX 

-€L+0 


GET COMMAND 
OUTFUT SPACE 
PRINT OR PUNCH? 

LOAD FILE 

MEMORY EXAM IN OR CHANGE 

TRACE MODE? 

OFFSET 


DEVICE SELECT 


GET DEVICE 
KIP ZERO 


A 

P 

A 

P 


ACIAVC+1 

# * R 

PRNTRG 

# * G 

CONTRL 

INCH 

#S0D 

CONTIN 

INHFX+2 

PYTF+2 

PADDR+2 

#XHI 

X 

1 >X 
TSP 

6jX 

7,X 

TSP 

TRACAD 


PRINT REGISTERS? 


GOTO PROGRAM? 

NO VALID COMMAND 


CONTINUE? 


GET START ADDRESS 

GET ADDRESS IN A,P 

MODIFY RETURN ADDRESS ON STAC 


RFSTORF USER STACKPOINTFR 
TRIGGER HARDVARF TRACE 
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00811 

FBC5 

3B 



RTI 



AND RUN 

00812 




**************************************** 

00813 

FBC6 

8 D 

37 

CL 1 

BSR 


INCHI 

GET SUB COMMAND 

00814 

FBC8 

81 

48 


CMP 

A 

#' H 

PUNCH? 

00815 

FBCA 

27 

48 


BEQ 


PUNCH 


00816 

FBCC 

81 

54 


CMP 

A 

#' T 

PRINT 

00817 

FBCE 

26 

03 


BNE 


* + 5 

NOT VALID 

00818 

FBD0 

7E 

FCB5 


JMP 


PRINT 


00819 

FBD3 

20 

81 


BRA 


CONTRL 


00820 




**************************************** 

00821 




* 





00822 


FBD5 

SFE 

EQU 


* 


00823 

FBD5 

BF 

F112 


STS 


TSP 

SAVE USER STACKPOINTER 

00824 

FBD8 

30 



TSX 




00825 

FBD9 

6D 

06 


TST 


6,X 

DECREMENT 'PC' 

00826 

FBDB 

26 

02 


BNE 


* + 4 


00827 

FBDD 

6A 

05 


DEC 


5* X 


00828 

00829 

FBDF 

6 A 

06 

* 

DEC 

Ld*£> 


6,X , 

if c*>TsicI<l 

O, Ltjc tf o-bo 

VI 

00630 

FBE1 

8D 

03 

PRNTRG 

BSR 


PRTREG 

PRINT USER REGISTERS 

00831 

FBE3 

7E 

FB56 

C4 

JMP 


CONTRL 


00832 




* 





00833 

FBE6 

FE 

FI 12 

PRTREG 

LDX 


TSP 



00834 

00835 

00836 

00837 

00838 


FBE9 08 
FBFA BD 
FBED BD 
FBF0 BD 
FBF3 BD 


( 00839 FBF6 BD 
00840 FBF9 CE 
00841 FBFC 7E 
00842 
00843 
00844 
w 00845 
00846 
00847 
00848 
00849 
00850 
00851 
00852 
00853 
00854 
00855 
00856 
00857 
00858 
00859 
00860 
0086 1 
00862 
0086 3 
W 00864 


FBI 2 
FBI 2 
FBI 2 
FBI 0 
FB10 
FI 12 
FB 10 


I NX 

JSR 0UT2HS OUTPUT ’ CC* 

JSR 0UT2HS OUTPUT 'B' 

JSR 0UT2HS OUTPUT ’A* 

JSR 0UT4HS OUTPUT 'X* 

JSR 0UT4HS OUTPUT ’PC’ 

LDX #TSP 

JMP 0UT4HS OUTPUT ’SP' 

*************************************** 
* 


+ RTS 


feff 

7E 

FD24 

INCHI 

* 

JMP 


INEEE 

STEPPING STONE 

FC02 

86 

14 

T 

PNHOFF 

LDA 

A 

#$14 

DC4 

FC04 

7E 

FD0D 

OUTCH1 

X 

JMP 


OUTEE 

+ RTS 

FC07 

86 

13 

▼ 

RDROFF 

LDA 

A 

#$13 

DC3 

FC09 

8D 

F9 


BSR 


OUTCH1 


FC0B 

B6 

FI IB 

ECHO 

LDA 

A 

STATUS 


FC0E 

84 

7F 


AND 

A 

# $7 F 

CLFAR BIT 

FC10 

E7 

FI IB 

ECHO 1 

STA 

A 

STATUS 


FC 1 3 

39 



RTS 





***************************************** 

* 



FG4 4 

PUNCH 

EQU 

* 


FC 1 4 

8D 

6C 


BSR 

SADDR 

VERIFY PEGA AND FNDA 

FC 1 6 

CE 

FFC2 


LDX 

#MTAPE4 

X= STRING 

FC 1 9 

BD 

FAAD 


JSR- 

PDATA1 


FC 1 C 

BD 

FA82 


JSR 

INCH 

VAI T 

FC 1F 

PD 

FD4D 

* 

JSR 

PNHTRL 

GO PUNCH LFADER 

FC22 

FE 

F10C 

PUN35 

LDX 

PEGA 
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017 


' 

{ ■•> 
( i V) 


•: > J 


00865 

FC25 

FF 

FI 10 


STX 


TV 

00866 

FC28 

B6 

F10F 

PUN 1 1 

LDA 

A 

ENDA+1 

00867 

FC2B 

B0 

FI 1 1 


SUB 

A 

TW+1 

00868 

FC2E 

F6 

F10E 


LDA 

B 

ENDA 

00869 

FC3 1 

F2 

FI 10 


SEC 

E 

TV 

00870 

FC34 

26 

04 


BNE 


PUN22 

00871 

FC36 

81 

10 


CMP 

A 

#16 

00872 

FC38 

25 

02 


BCS 


PUN23 

00873 




* 




00874 

FC3A 

86 

0F 

PUN22 

LDA 

A 

#15 

00875 

FC3C 

8B 

04 

PUN23 

ADD 

A 

#4 

00876 

FC3E 

B7 

FI 1A 

-- 

STA 

A 

MCONT 

00877 

FC41 

80 

03 


SUB 

A 

#3 

00878 

FC43 

B7 

FI 17 


STA 

A 

TEMPI 

00879 

FC46 

CE 

FFB 1 


LDX 


#MTAPE1 

00880 

FC49 

8D 

02 


BSR 


PUN40 

00881 

FC4B 

20 

24 


BRA 


PUN50 

00882 




* 




00883 

FC4D 

BD 

FAAD 

PUN40 

JSR 


PDATA1 

00884 

FC50 

5F 



CLR 

B 


00885 

FC51 

CE 

FI 1A 


LDX 


#MCONT 

00886 

FC54 

8D 

27 


BSR 


PUNT2 

00887 

FC56 

CE 

FI 10 


LDX 


#TW 

00888 

FC59 

8D 

22 


BSR 


PUNT2 

00889 

FC5B 

8D 

20 


ESR 


PUNT2 

00890 

FC5D 

FE 

FI 10 


LDX 


TW 

00891 

FC60 

8D 

IB 

PUN32 

BSR 


PUNT2 

00892 

FC62 

7A 

FI 17 


DEC 


TEMPI 

00893 

FC65 

26 

F9 


BNE 


PUN32 

00894 

FC67 

FF 

FI 10 


STX 


TW 

00895 

FC6A 

53 



COM 

B 


00896 

FC6B 

37 



PSH 

B 


00897 

FC6C 

30 



TSX 



00898 

FC6D 

8D 

0E 


BSR 


PUNT2 

00899 

FC6F 

33 



PUL 

B 


00900 

FC70 

39 



RTS 



00901 




* 




00902 

FC71 

FE 

FI 10 

PUN50 

LDX 


TW 

00903 

FC7 4 

09 



DEX 



00 904 

FC7 5 

BC 

F10E 


CFX 


ENDA 

00905 

FC78 

26 

AE 


BNE 


PUN1 1 

00906 

FC7A 

7E 

FD57 


JMF 


PNCHTR 

00907 




* 




00908 

FC7D 

EB 

00 

PUNT2 

ADD 

B 

X 

00909 

FC7F 

7E 

FB0 5 


JMP 


0UT2H 


DIFF >16 


BYTE COUNT 
DATA STRING 
PUNCH DATA STRING 


CLEAR CHECKSUM 
FRAME COUNT 

OUTPUT ADDRESS 


DATA POINTER 

DFCR.BYTE COUNT 
LOOP UNTIL DONE 
SAVE POINTER 
MAKE 1'S COMPLEMENT 


RESTORE STACK 


00910 
0091 1 
00912 
00913 
00914 
00915 
00916 
00917 
00918 


FINISHED? 

PUNCH TRAILER 

UPDATE CHECKSUM 
PUNCH 2HEX +RTS 
***************************************** 
* 


FC82 

CE 

FF9D SADDR 

LDX 

#STRG1 

EFGA STRINC- 

FC85 

BD 

FAAD 

JSR 

PDATA1 


FC88 

CE 

F10C 

LDX 

#BEGA 

PRINT OLD 

FC8B 

PD 

FB 10 

JSR 

0UT4HS 


FC8E 

PD 

FD24 

JSR 

INEEE 

ALTFR? 

FC91 

81 

20 

CMP A 

# $20 


FC93 

26 

06 

FNE 

* + 8 



^ T TP- 
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00921 

00922 

00923 

00924 

00925 

00926 

00927 

00928 

00929 

00930 

00931 

00932 

00933 

00934 

00935 

00936 

00937 

00938 

00 9 3 9 

00940 

00941 

00942 

00943 

00944 

00945 

00946 

00947 

00948 

00949 

00950 

00951 

00952 

00953 

00954 

00955 

00956 

00957 

00958 

00959 

00960 

00961 

00962 

00963 

00964 

00965 

00966 

00967 

00968 

00969 

00970 

0097 1 

00972 


Fen 

FC9E 
FC9E 
FCA1 
FCA4 
FCA7 
FCAA 
FCAC 
FCAE 
FCB1 
FCE4 


B d 

FF 

CE 

BD 

CE 

BD 

BD 

81 

26 

BD 

FF 

39 


FA85 
F10C 
FFA7 
FAAD 
F10E 
FB10 
FD24 
20 
06 

FA85 

F10E 


FCB5 
FCB7 
FCBA 
FCBD 
FCC0 
FCC3 
FCC6 
FCC9 
FCCB 
FCCD 
FCD0 
FCD1 
FCD3 
FCD6 
FCD8 A6 
FCDA 8D 
FCDC 
FCDD 
FCDE 
FCE0 
FCE3 
FCE6 
FCE9 
FCEC 
FCEF 
FCF1 
FCF3 
FCF5 


8D 

FE 

FF 

BD 

CE 

BD 

FE 

C6 

A6 

BD 

5A 

26 

FE 

C6 


CB 

F10C 
FI 10 
FA A 5 
FI 10 
FB 10 
FI 10 
10 
00 

FBI 2 
F8 

FI 10 
10 
00 
1C 


08 
5A 
26 
FF 
B6 
B0 
F6 
F2 
24 
81 
2 C 
7E 


FCF8 

FCFA 

FCFC 

FCFF 

FD00 


8 1 
25 
81 
24 
20 


F8 

FI 10 
F10F 
FI 1 1 
F10E 
FI 10 
CC 
00 
C 8 

FB 56 


20 

06 

60 

02 

02 


JSR 

BA DDR 

GET NEW 

STX 

BEGA 

STORE IT 

LDX 

#STRG2 

ENDA STRING 

JSR 

PDATA1 


LDX 

#ENDA 


JSR 

0UT4HS 

PRINT OLD 

JSR 

INFEE 

ALTER? 

CMP A 

# $20 


BNE 

* + 8 


JSR 

BA DDR 

GET NEW 

STX 

ENDA 

SAVE IT 

RTS 

********************************* 

BSR 

SADDR 

FROM TOC 

LDX 

BEGA 


STX 

TV 


JSR 

OUTSTG 

OUTPUT CRLF 

LDX 

#TV 


JSR 

0UT4HS 

OUTPUT ADDRESS ON 

LDX 

TW 

DATA POINTER 

LDA B 

#16 

BYTE COUNT 

LDA A 

X 

GET DATA 

JSR 

0UT2HS 

OUTPUT BYTE 

DEC B 


UNTIL 

BNE 

PRT1 

DONE 

LDX 

TW 


LDA B 

#16 


LDA A 

X 


BSR 

SELCAR 

SAME IN ASCII 

I NX 

DEC B 

BNE 

PRT2 


STX 

TW 

CHECK DONE 

LDA A 

ENDA +1 


SUB A 

TW + 1 


LDA F 

ENDA 


SBC B 

TW 


BCC 

PRINT+8 

NOT YET 

CMP A 

#0 


BGF 

PRINT+8 

NOT YET 

JMP 

CONTRL 

READY 

******* 

************************* 

CMP A 

#$20 

>< SPACE? 

BCS 

PRT3 


CMP A 

#$60 

> *\ ' 

ECC 

PRT3 

-—. 

ERA 

FRT4 



FD02 86 
FD04 20 


2F PRT3 LDA A 

07 PRT4 BRA" 


#• . 

OUTEE 


CONVERT CHAR 
+RTS 


******************** + + + + + + + + + + + + + + 3(t + + + 
♦ 
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00973 

FD06 

8D 

1C 

INCMD 

BSR 

INEEE 

CHAR @-\ ? 

0097 A 

FD08 

85 

40 


BIT A 

#$40 


0097 5 

FD0A 

27 

FA 


EEQ 

INCMD 

NOT YET 

00976 

FD0C 

39 



RTS 



00977 




************************************** 

00978 




* 




00979 

FD0D 

37 


CUTEE 

PSH E 


SAVE E 

00980 

FD0E 

3F 



FCB 

$3F >05 

PSHX 

00981 




* 




00982 

FD10 

FE 

F10A 


LDX 

OTSWTC 

GET SWITCH VECTOR 

00983 

FD1 3 

6E 

00 


JMP 

X 


00984 




* 




00985 

FD1 5 

FE 

FI 06 

OTCR 

LDX 

ACIAVC 

GET DEVICE VECTOR 

00986 

FD1 8 

E6 

00 

OT1 

LDA B 

X 

TRANSMITTER EMPTY? 

00987 

FD1A 

57 



ASR B 



00988 

FD1B 

57 



ASR B 



00989 

FD1C 

24 

FA 


BCC 

OT1 


00990 

FD1E 

A7 

01 


STA A 

1,X 

WRITE DATA 

00991 




* 




00992 

FD20 

3F 


RET2 

FCB 

$3E,06 

PULX 

00993 

FD22 

33 



PUL E 



00994 

FD23 

39 


RET1 

RTS 



00995 




************************************** 

00996 




* 




00997 

FD24 

8D 

13 

INEEE 

BSR 

INPUT 


00998 

FD26 

84 

7F 


AND A 

#$7F 

STRIP PARITY 

00999 

FD28 

81 

7F 


CMP A 

#$7F 

RUPOUT? 

01000 

FD2A 

27 

F8 


BEQ 

INEEE 


01001 

FD2C 

81 

60 


CMP A 

#$60 

CAPTST 

01002 

FD2F 

23 

02 


BLS 

* + 4 


01003 

FD30 

84 

5F 


AND A 

# $ 5F 

CONVERT TO CAPS 

01004 

FD32 

7 D 

FI IB 


TST 

STATUS 

ECHO? 

01005 

FD35 

2B 

F.C 


BMI 

RET 1 

NO 

01006 

FD37 

20 

D4 


BRA 

CUTEE 

GO ECHO 

01007 




* 




01008 

FD39 

37 


INPUT 

PSH B 



01009 

FD3A 

3F 



FCB 

$3F,05 

PSHX 

01010 

FD3C 

FE 

F 1 08 


LDX 

INSWTC 

GET SWITCH VECTOR 

01011 

FD3F 

6 E 

00 


JMP 

X 


01012 




* 




01013 

FD4 1 

FE 

F 1 06 

I NCR 

LDX 

ACIAVC 

C-ET DEVICE VECTOR 

01014 

FD44 

E6 

00 

INI 

LDA B 

X 

RECEIVER FULL? 

01015 

FD46 

57 



ASR B 



01016 

FD^7 

24 

FB 


BCC 

INI 


01017 

FD49 

A 6 

0 1 


LDA A 

1 ,X 

GET DATA 

01018 




* 

\ ' *■ 



01019 

FD4B 

20 

D3_ 


ERA 

RET2 


01020 




********************* 

***************** 

01021 




* 




01022 

FD4D 

C6 

32 

PNHTRL 

LDA B 

#50 

PUNCH 10 INCHES PLANK 

01023 

FD4F 

4 F 



CLR A 



01024 

FD50 

PD 

FA7F 

PL 1 

JSR 

DUTCH 

PUNCH 

01025 

FD53 

5A 



DEC B 



01026 

FD54 

26 

FA 


BNE 

PL 1 
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01027 

FD56 

39 



RTS 




01028 




* 





01029 

FD57 

CE 

FFB9 

PNCHTR 

LDX 


#MTAPE3 

TRAILER STRING 

01030 

FD5A 

BD 

FAAD 


JSR 


PDATA1 


01031 

FD5D 

8D 

EE 


BSR 


PNHTRL 


01032 




* 





01033 

FD5F 

7E 

FB 56 

C5 

JMP 


CONTRL 


01034 




******** ******************************* 

01035 




* 





01036 

FD62 

BD 

FC82 

OFFSET 

JSR 


SADDR 

FROM-TOO 

01037 

FD65 

BD 

FAA5 


JSR 


OUTSTG 


01038 

FD68 

FE 

F10C 


LDX 


BEGA 

GET FROM 

01039 

FD6B 

08 



I NX 




01040 

FD6C 

08 



I NX 




01041 

FD6D 

FF 

FI 10 


STX 


TW 


01042 

FD70 

4F 



CLR 

A 


COUNTER 

01043 

FD71 

BC 

F10E 

OF1L 

CPX 


ENDA 

DONE? 

01044 

FD74 

27 

19 


BEQ 


OFFFIN 


01045 

FD76 

08 



I NX 




01046 

FD77 

4C 



INC 

A 



01047 

FD78 

2 A 

F7 


BPL 


OF 1L 


01048 

FD7A 

4F 



CLR 

A 



01049 

FD7B 

FE 

FI 10 


LDX 


TW 


01050 

FD7E 

BC 

F10E 

0F2L 

CPX 


ENDA 


01051 

FD81 

27 

0C 


BEQ 


OFFFIN 

DONE 

01052 

FD83 

09 



DEX 




01053 

FD84 

4A 



DEC 

A 



01054 

FD85 

2B 

F7 


EMI 


0F2L 


01055 




* 





01056 

FD87 

CE 

FFE4 


LDX 


#INVL D 

NOT VALID MESS 

01057 

FD8A 

BD 

FAAD 


JSR 


FDATA 1 


01058 

FD8D 

20 

D0 


ERA 


C5 

GOTO MONITOR 

01059 




* 





01060 

FD8F 

36 


OFFFIN 

FSH 

A 



01061 

FD90 

30 



TSX 




01062 

FD91 

BD 

FB05 


JSR 


0UT2H 


01063 

FD94 

32 



PUL 

A 


RESTORE STACK 

01064 

FD95 

20 

C8 


ERA 


C 5 


01065 




*************************************** 

01066 




* 





01067 


FD97 

TRACE 

EQU 


* 


01068 

FD97 

86 

2D 


LDA 

A 

# ’ - 

PROMPT 

01069 

FD99 

BD 

FA7F 


JSR 


DUTCH 


01070 

FD9C 

BD 

FD06 


JSR 


INCMD 

GET COMMAND 

0107 1 

FD9F 

8 1 

52 


CMP 

A 

#' R 

RESET TRACE? 

01072 

FDA 1 

26 

05 


BNE 


* + 7 


01073 

FDA 3 

7F 

F004 


CLR 


TRACAD 

LOCK COUNTER 

01074 

FDA6 

20 

B7 


BRA 


C5 

GOTO MONITOR 

01075 




* 





01076 

FDA 8 

8 1 

43 


CMP 

A 

# ' C 

ONE INSTRUCTION? 

01077 

FDAA 

27 

ID 


BEQ 


TRACE 1 


01078 




* 





01079 

FDAC 

81 

53 


CMP 

A 

#’ S 

MULTIPLE INSTR. 

01080 

FDAE 

26 

E5 


BNE 


*-25 
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01081 

01082 

01083 

01084 

01085 

01086 

01087 

01088 

01089 

01090 

01091 

01092 

01093 

01094 

01095 

01096 

01097 

01098 

01099 

01100 

01101 

01102 

01103 

•gi ns 1 

01113 
01114 
1115 
0lVl6 
0111 
01118 
01119 
01120 
01121 
01122 
01123 
01124 
01 125 
01126 
01127 
01128 
01129 
01130 
01131 
01132 
01133 
01 134 
01135 
01136 
01137 
01138 
01139 
01140 
01141 
01142 
01 143 
01 14. 
01 Uf5 


FDB0 BD FA93 
FDB3 B7 FI 1C 
FDB6 20 06 


JSR 

STA 

BRA 


BY TE 
TR SC NT 
*+8 


GET INSTR. 
SAVE IT 


COUNT 


FDB8 

FDBB 

FDBE 

FDC1 

FDC4 

FDC6 

FDC9 

FDCC 

FDCF 

FDD2 


FI 12 
FA A 5 
FBE6 
F11C 
D1 

F11C 
FDB8 
F102 
F004 
FBBF 


**************** 
TRACYC 


STS 
JSR 
JSR 
TST 
BEQ 
DEC 

TRACE l LDX 
STX 
INC 
JMP 


IMF 

000F 

0010 

0011 

0012 

0013 

0014 

.0015 


>D5 


FDJ 

prfbe 

FDC8 

FDDA 


TSP 

OUTSTG 
PRTREG 
TRSCNT 
TRACE 
TRSCNT 
#TRACYC 
NIO 

TRACAD UNLOCK COUNTER 
CONTIN AND GO 
************************************ 

* 


ENTRY ON TRACE 
OUTFUT CRLF 
PRINT REGISTERS 
DONE? 

NEXT INSTR. 

SET NMI VECTOR 


DISC 10 SOFTWARE 


CALLING SEQUENCE LDX CHANNELTBL ADDR 


JSR DISCIO 


CTESL 

CTLSH 

CTLSL 

CTBPH 

CTBPL 

CTDC 

CTDR 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


btii uvNiivu stuii'n HIGH 

t * »t LOW 

LAST SECTOR OPTD. ON HIGH 
»* * * > » jjLOV 

BUFFER POINTER HIGH 
tt it L OW 

DISC I/O COMMAND 
DRIVE # (HEAD) 


0^16 

CTNSH 

EQU 

22 

NEXT SECTOR HL0H 

0 0 09. 

CTNSL 

EQU 

23 

it it L JcV 1 

0018 N 

. CTBAH 

EQU 

24 

BUFFER ADDRESS HIGH 

0019 

NTTBAL 

EQU 

25 

it LOW 

00 1A 

C>^T 
* \ 

EQU 

26 

DISC W/0 STATUS 

6800 

FORM A^ 

vEQU 

S6800 

ecwiatter ADDRESS 

6801 

DRIVAD 

F&U 

56801 

/TRIVE ADDRESS 

6000 

RWFIFO 

EQUV 

$6000 

READ / WRITE FIFO 

0080 

▼ 

CONSEL 

EQU 


CONTOL SELECT 

0040 

DIFSEL 

EQU 


DIFFERENCE SELECT 

0020 

HEDSFL 

EQU / 

^ 520 N. 

HEAD SELECT 

0004 

RDCMD 

EQ*r 


vREAD COMMAND DRIVE 

0011 

WTCMD 


51 1 

WRITE COMMAND DRIVE 

0040 

RTHS/ 

EQU l 

$40 

RETURN HOME SEEK DR 

0003 

READC 

EQU 

$03 

FORMATTER READ COMM 

0002 

ym tc 

EQU 

$02 

FORMATTER WRITE CCMi 

0004 

/FVDSK 

EQU 

$04 

FORWARD SEEK DRIVE 

0020>/ 

RVSSK 

EQU 

$20 

REVERSE SFEK DRIVE 


* 

DISCIO 


EQU 
PSH P 
FCP 
LDA A 
CMF A 


S3F,05 
CTDCj X 

ft 2 vloc..'.\o> 


PSHX 

GET COMMAND 
VALID COMMAND? 








KFEEUG2 






00201 




NAM 

KEEBUG2 


J T ' j | 

00002 




OPT 

0*S*N0G 



00003 



* 





00004 



* 




f > 

00005 



* BY C 

.SCHOENMAKERS DATE 79 04 28 

■; '1 f 1 

♦♦♦♦ERROR 

210 





1 ) 

00098 

F83F 

CB AD 


A DDE 

#DSPTAB 


■ )! ;• 1 

01097 




OPT 

L 


*> 9 

01098 



* 




^ 311 

01099 



* 




9 11 '■) 1 

01100 



♦ DISCIO SOFTWARE 


O n [ ;) 

01101 



* 




.} ’) f | 

01102 



♦ CALLING SEQUENCE LDX 

CHANNELTBL ADDR 

I 

01103 



* 




, l 

01104 



* JSR 

DISCIO 



p { ^9 

01105 



* 




■> > ,• • ■) ] 

01106 



♦ CHANNEL TABLEDEFINITIONS 

i 

01107 


0000 

CTCTH 

EQU 

0 

CHANNEL TABLE ADDRESS HIGH 

> f ♦ • 3 

01108 


0001 

CTCTL 

EQU 

1 

* * » » »» LOW 

U r > 1 

01109 


0002 

CTN1 

EQU 

2 

NAME 

:i l 1 

01110 


0 00A 

CTM1 

EQU 

10 

MODIFIER 

n; 1 

01111 


000D 

CTFG 

EQU 

13 

FLAGS 

01112 


000E 

CTBSH 

EQU 

14 

BEGINNING SECTOR HIGH 

-J ^ • . I 

01113 


000F 

CTBSL 

EQU 

15 

»» »» LOW 

1 r\ t > a 

01114 


0010 

CTLSH 

EQU 

16 

LAST SECTOR OPTD. ON HIGH 

»■! ■■: ® 

01115 


0011 

CTLSL 

EQU 

17 

t » »» * » r * LOW 


01116 


0012 

CTBPH 

EQU 

18 

BUFFER POINTER HIGH 

ti r "| ; 

01117 


0013 

CTBPL 

EQU 

19 

, > >> LOW 


01118 


0014 

CTDC 

EQU 

20 

DISC I/O COMMAND 

j *,■> ( •• - j« 

01119 


0015 

CTDR 

EQU 

21 

DRIVE # (HEAD) 


01120 


0016 

CTNSH 

EQU 

22 

NEXT SECTOR HIGH 


01121 


0017 

CTNSL 

EQU 

23 

j» t» LOW 


01122 


0018 

CTBAH 

EQU 

24 

BUFFER ADDRESS HIGH 

: a 

01123 


0019 

CTBAL 

EQU 

25 

»» »» LOW 

w 

01124 


0 0 1A 

CTST 

EQU 

26 

DISC I/O STATUS 


01125 



* 





01126 


6800 

FORMAD 

EQU 

16800 

FORMATTER ADDRESS 


01127 


6 80 i 

DRIVAD 

EQU 

$6801 

DRIVE ADDRESS 


01128 


6000 

RVFIFC 

EQU 

$6000 

READ / WRITE FIFO 


01129 



* 





01130 


0 080 

CONSEL 

EQU 

$80 

CONTOL SELECT 


01131 


0040 

DIFSEL 

EQU 

$40 

DIFFERENCE SELECT 


01132 


0020 

HEDSFL 

EQU 

$20 

HFAD SELECT 


01133 


0004 

RDCMD 

EQU 

$o4 02. 

READ COMMAND DRIVE 


01134 


0011 

VTCMD 

EQU 

$i l 

WRITE COMMAND DRIVE 


01135 


0040 

RTHS 

EQU 

$40 

RETURN HOME SEEK DRIVE 


01 13* 


0003 

READC 

EQU 

$08 

FORMATTER READ COMM 


011 37 


0002 

WRITC 

EQU 

$02 

FORMATTER WRITE COMM 


01138 


0004 

FVDSK 

EQU 

$04 

FORWARD SFFK DRIVE 


01 139 


0020 

RVSSK 

EQU 

$20 

REVERSE SEEK DRIVE 


01 1 40 



* 





01141 


FDD5 

DISCIO 

EQU 

* 


• 

01 142 

FDD5 

37 


FSH F 




01143 

FDD6 

3F 


FCB 

$ 3F > 05 

PSHX 


01144 

FDE8 

A6 14 


LDA A 

C TDC.» X 

GET COMMAND 


01 145 

FDDA 

81 02 


CMP A 

# 2 

VALID COMMAND? 
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S 


01146 

FDDC 

23 

08 


BLS 


DISCI 

01147 

FDDE 

C 6 

01 


LDA 

B 

#1 

01148 

FDE0 

3F 


DISRET 

FCB 


$3F>06 

01149 

FDF2 

E7 

1A 

r 

STA 

B 

CTST> X 

01150 

FDE4 

33 



PUL 

B 


01151 

FDE5 

39 



RTS 



01152 




* 




01153 

FDE6 

4 D 


DISCI 

TST 

A 


01154 

FDE7 

26 

43 


BNE 


DISC2 

01155 

FDE9 

7F 

6800 


CLR 


FORMAD 

01156 

FDEC 

86 

40 


LDA 

A 

#RTHS 

01157 

FDEE 

B7 

6801 


STA 

A 

DRIVAD 

01158 

FDF1 

86 

80 


LDA 

A 

#CONSEL 

01159 

FDF3 

B7 

6800 


STA 

A 

FORMAD 

01160 

FDF6 

7F 

6800 


CLR 


FORMAD 

01161 

FDF9 

CE 

00FF 


LDX 


#$00FF 

01162 

FDFC 

FF 

FI 21 


STX 


CURCYL 

01163 

FDFF 

86 

0C 


LDA 

A 

#$0C 

01164 

FE0 1 

B7 

6800 


STA 

A 

FORMAD 

01165 

FE04 

7F 

6800 


CLR 


FORMAD 

01166 

FE07 

8D 

09 


BSR 


CHECK 

01167 

FE09 

24 

04 


BCC 


RST1 

01168 

FE0E 

C6 

02 


LDA 

B 

#2 

01169 

FF0D 

20 

D1 


ERA 


DISRET 

01 170 

FE0F 

5F 


RST1 

CLR 

B 


01171 

FE10 

20 

CE 

DR2 

BRA 


DISRET 

01172 




* 




01173 

FE12 

3F 


CHECK 

FCB 


S3F> 05 

01174 

FE1 4 

37 



PSH 

B 


01175 

FE1 5 

CE 

5FFF 


LDX 


#$5FFF 

01176 

FE 1 8 

F6 

6801 

CHK5 

LDA 

B 

DRIVAD 

01177 

FE1B 

C 4 

F0 


AND 

B 

#SF0 

01178 

FE1D 

C 8 

70 


ECR 

B 

#$70 

01179 

FE1F 

27 

08 


BEQ 


CHK4 

01180 

FE21 

09 



DEX 



01181 

FE22 

26 

F 4 


BNE 


CHK5 

01182 

FE24 

0D 



SEC 



01183 

FE25 

33 


CHR 

PUL 

B 


01184 

FE26 

3F 



FCB 


$3F >06 

01185 

FE28 

39 



RTS 



01186 

FE29 

0C 


CHK4 

CLC 



01187 

FE2A 

20 

F9 


BRA 


CHR 

01188 




♦ 




01189 

FE2C 

A 6 

10 

DISC2 

LDA 

A 

CTLSH* X 

01190 

FEPE 

PD 

FEA7 


JSR 


GETCYL 

01191 

FF31 

25 

45 


PCS 


CHERRT 

01 192 

FE33 

A6 

1 5 


LDA 

A 

CTDR..X 

01193 

FE35 

PD 

FEE 8 


JSR 


GF.THED 

01 194 

FE38 

A6 

14 


LDA 

A 

CTDC* X 

01195 

FE3A 

8 1 

02 


CMP 

A 

#2 

01196 

FE3C 

26 

03 


BNE 


* + 5 

01197 

FE3E 

7 E 

FEFE 


JMP 


VRTSFC 

01 198 




* 




01199 

FE4 1 

C 6 

03 

REDSEC 

LDA 

P 

#3 


SET STATUS ERROR 1 
PULX 

SET RETURN STATUS 


RESET? 

NO 


SET CYL=0 HFAD=-1 
RESET READ+VRITE FIFO 


RESET ERROR 
STATUS OK 

PSHX 

DELAY COUNT 

MASK OFF PITS 
INVERT SOMF 


PULX 


GET CYLINDER 


GET WANTED HEAD 

GET COMMAND 
READ? 

YES 

GO VRITF 
TRY COUNT 
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01200 

01201 

01202 

01203 

01204 

01205 

01206 

01207 

01208 

01209 

01210 

01211 

01212 

01213 

01214 

01215 

01216 

01217 

01218 

01219 

01220 

01221 

01222 

01223 

01224 

01225 

01226 

01227 

01228 

01229 

01230 

01231 

01232 

01233 

01234 

01235 

01236 

01237 

01238 

01239 

01240 

01241 

01242 

01243 

01244 

01245 

01246 

01247 

01248 

01249 

01250 

01251 

01252 

>01253 


FE43 

FE46 

FE48 

FE4B 

FE4E 

FE50 

FE53 

FE55 

FE57 

FE59 

FE5B 

FE5D 

FE5F 

FE61 

FE63 

FE66 

FE68 


F7 
86 
B7 
7 F 
A6 
ED 
8D 
25 
A6 
E6 
A7 
E7 
3F 
C6 
B6 
A7 
08 


F123 

04 

6800 

6800 

1 1 

FF7C 

27 

18 

18 

19 

12 

13 

A0 

6000 

00 


REDSC1 




RSWLP 


STA 
LDA 
STA 
CLR 
LDA 
JSR 
BSR 
ECS 
LDA 
LDA 
STA 
STA 
FCB 
LDA 
LDA 
STA 
I NX 


B 

A 

A 


A 

P 

A 

B 

B 

A 

A 


TRY 
# S 04 
FORMAD 
FCRMAD 
C TL SL;X 
CONSEC 
READIS 
RDFRRT 
CTBAH* X 
CTPAL* X 
CTBPH* X 
CTBPL* X 
$3F,03 
#160 
RWFIFO 
X 


CLEAR READ FIFO 


GET VANTED 
CONVERT TO 


SECTOR 
PHYS SECT 


GET BUFFER 
SET POINTER 
TABX 

SECTOR LENGTH 
MOVE DATA 


FE69 

5A 



DEC 

B 



FE6A 

26 

F7 


BNE 


RSVLP 


FE6C 

7E 

FDE0 

DR 3 
% 

JMP 


DISRET 

FINISHED 

FE6F 

7A 

F1 23 

RDERRT 

DEC 


TRY 

TRY AGAIN 

FE72 

26 

&F DT 

BNE 


JR&fr 

FE74 

C6 

03 


LDA 

B 

#3 

ERROR 

FE76 

20 

F4 


ERA 


DR 3 


FE78 

C6 

05 

CHERRT 

LDA 

B 

#5 


FE7A 

20 

F0 


BRA 


DR3 


FE7C 

C6 

OAOZ READ IS 

LDA 

B 

#RDCMD 

READ COMMAND DRIVE 

FE7E 

F7 

,6801 


STA 

B 

DRIVAD 

FE81 

F 6 

6800 

R2S 

LDA 

B 

FORMAD 

READ ACTUAL SECTOR 

FE84 

C4 

3F 


AND 

B 

#I3F 


FE86 

1 1 



CBA 



IS IT THE WANTED? 

FE87 

26 

F8 


BNE 


R2S 


FE89 

C6 

03 


LDA 

B 

#READC 

FORMATTER READ COMM 

FE8B 

F7 

6800 


STA 

B 

FORMAD 


FE8E 

ED 

FE12 


JSR 


CHECK 


FE9 1 

25 

12 


PCS 


RFR 


FE93 

F6 

6800 

EUSYR 

LDA 

B 

FORMAD 


FE96 

2B 

FB 


PM I 


PUSYR 


FE98 

C 5 

40 


BIT 


#140 

CRC FRROR? 

FE9A 

26 

09 


BNE 


RFR 

FE9C 

F6 

6000 


LDA 

B 

RUFIFO 

SEARCH PRFAMPLF 

FE9F 

Cl 

55 


CMP 

B 

#$55 


FFA1 

26 

02 


BNE 


RFR 


FEA3 

0 C 


ROK 

CLC 

_ s 



FEA4 

39 



RTS 




FEA5 

0 D 


RER 

SEC 




FEA6 

39 



RTS 




FEA7 

36 


* 

GETCYL 

PSH 

A 



FEA8 

E 1 

F 1 2 1 


CMP 

A 

CURCYL 

IS CYLINDER THE SAMF 

FEAR 

27 

30 


PEQ 


SFTT1 

YES 













01254 

FEAD 

24 

13 


ECC 


SETT2 

WANTED IS HIGHER 

i v - 

01255 

FEAF 

40 



NEG 

A 



“> ' ' 1 { ■ yu 

01256 

FEP0 

BB 

F121 


ADD 

A 

CURCYL 

GET DIFF. 


01257 

FEB3 

B7 

6801 


STA 

A 

DRIVAD 

STORE IN DRIVE 

i ' • i 1 

01258 

FEP6 

86 

40. 


LDA 

A 

#DIFSEL 

DIFFERENCE SELECT 

3 ■ A ’ • \ 

01259 

FEP8 

B7 

6800 


STA 

A 

FCRMAD 

ENTER DIFF. 

-• r 

01260 

FEPB 

7F 

6800 


CLR 


FORMAD 


. > »ya 

01261 

FEBE 

86 

20 


LDA 

A 

#RVSSK 

REVERSE SEEK 

; )§ 

01262 

FEC0 

20 

10 


BRA 


SETT3 


> )| 

01263 

FEC2 

B0 

Fl 21 

SETT2 

SUB 

A 

CURCYL 

GET DIFF 

;i if 'ij 

01264 

FEC5 

B7 

6801 


STA 

A 

DRIVAD 

STORE IN DRIVE 

Iff) 

01265 

FEC8 

86 

40 


LDA 

A 

#DIFSEL 

ENTER 

I : •"> f }| 

01266 

FECA 

B7 

6800 


STA 

A 

FCRMAD 


Iff 

01267 

FECD 

7F 

6800 


CLR 


FORMAD 


I J 

01268 

FED0 

86 

04 


LDA 

A 

#FWDSK 

FORWARD SEEK 

■ ■ ‘ 

I 01269 

FED2 

B7 

6801 

SETT3 

STA 

A 

DRIVAD 

ENTER COMMAND 

| : 71 

01270 

FED5 

86 

80 


LDA 

A 

#CONSEL 


I ! m| 

01271 

FED7 

B7 

6800 


STA 

A 

FORMAD 


1 [ ; }1 

01272 

FFDA 

7F 

6800 


CLR 


FORMAD 


j r •, 1 

01273 

FEDD 

32 


SETT1 

PUL 

A 



■ ) M 

01274 

FEDE 

B7 

F1 21 


STA 

A 

CURCYL 


I r 1 m 

01275 

FEE1 

BD 

FE12 


JSR 


CHECK 


I '* * W 

01276 

FEE4 

25 

01 


BCS 


GETERR 

ERROR 

I C f '¥m 

01277 

FEE6 

0C 



CLC 




1 " f V 3 

01278 

FEE7 

39 


GETERR 

RTS 




1 | 

01279 




* 






01280 

FEF8 

36 


GETHED 

PSH 

A 



1 f 

01281 

FEE 9 

B 1 

F122 


CMP 

A 

CURHED 

IS IT THE SAME 

1 '> ■ f • i ■ 

01282 

FEEC 

27 

0E 


BEQ 


SETT10 

YES 

■i t y .• - ' -M 

01283 

FEEE 

B7 

6801 


STA 

A 

DRIVAD 


01284 

• 

FEF1 

86 

20 


LDA 

A 

#HEDSEL 

HEAD SELECT 


01285 

FEF3 

B7 

6800 


STA 

A 

FORMAD 


I 

01286 

FEF6 

7F 

6800 


CLR 


FORMAD 

MAKE PULSE 

i M 

01287 

FEF9 

32 


SETT10 

PUL 

A 


RESTORE STACK 

1 A 

01288 

FEFA 

B7 

F122 


STA 

A 

CURHED 

UPDATE CURRENT HEAD 

I 

01289 

FEFD 

39 



RTS 





01290 




* 





1 > . • 

01291 




************ 




01292 




* 





1 ; 

01293 

FEFE 

C6 

03 

V'RTSEC 

LDA 

B 

#3 

TRY COUNT 


01294 

FF00 

F7 

F123 


STA 

B 

TRY 



01295 

FF03 

C 6 

08 

VRIT1 

LDA 

B 

#8 

CLEAR WRITE FIFO 


01296 

FF0 5 

FI 

6800 


STA 

B 

FCRMAD 



01297 

FF0 8 

7F 

6800 


CLR 


FCRMAD 



01298 

FF0B 

C 6 

10 


LDA 

B 

#16 

MAKE SOME SPACE 


01299 

FF0D 

A6 

1 1 


LDA 

A 

CTLSL.* X 

GET WANTED SECTOR 


01300 

FF0F 

36 



PSH 

A 


SAVE IT A WHILE 


01301 

FF 10 

4F 



CLR 

A 




01302 

FF1 1 

B 7 

6000 

URIT2 

STA 

A 

RWFIFO 



01303 

FF 1 4 

5A 



DEC 

B 




01304 

FF 1 5 

26 

FA 


BKE 


VRIT2 



01305 

FF 17 

C6 

55 


LDA 

B 

# S 55 

PREAMBLE 

A 

01306 

FF 1 9 

F7 

6000 


STA 

B 

RWFIFO 


W 

01307 

FF 1 C 

E6 

19 


LDA 

B 

CTEALj X 

GET PUFFER ADDRESS 











m 
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01308 

FF1E 

no 

94> 

18 


LDA A 

CTEAH/K^ 

01309 

FF20 

E7 

13 


STA B 

CTBPL* X 

SET POINTER BEGIN 

01310 

FF22 

fa 

12 


STA A 

CTEFH X 


§ 01311 

FF24 

3F 



FCB 

$3F* 03 

TABX 

^ 01312 

FF26 

C6 

A0 


LDA B 

#160 

SECTOR LENGTH 

§ 01313 

FF28 

A6 

00 

VSVLP 

LDA A 

X 

MOVE DATA 

01314 

FF2A 

B7 

6000 


STA A 

RVFIFO 


01315 

FF2D 

08 



I NX 



•1316 

FF2E 

5A 



DEC B 



101317 

FF2F 

26 

F7 


BNE 

WSVLP 


f 01318 

FF31 

C 6 

10 


LDA B 

#16 

MAKE SOME SPACE 

•1319 

FF33 

4F 



CLR A 



•1320 

FF34 

B7 

6000 

VRIT3 

STA A 

RVFIFO 


•1321 

FF37 

5A 



DEC B 



01322 

FF38 

26 

FA 


ENE 

WRIT3 


W 01323 

FF3A 

32 



PUL A 


RESTORE A 

1 01324 

FF3B 

8D 

3F 


BSR 

CONSEC 

CONVERT TO PHYS NO 

m 01385 

FF3D 

C6 

1 1 


LDA B 

#WTCMD 

WRITE COMM DRIVE 

•1326 

FF3F 

F7 

6801 


STA B 

DRIVAD 


01327 

FF42 

F6 

6800 

W1LP 

LDA B 

FORMAD 

READ ACTUAL SECTOR 

01328 

FF45 

C 4 

3F 


AND B 

#$3F 


•1329 

FF47 

1 1 



CPA 



01330 

FF48 

26 

F8 


BNE 

W1LP 


01331 

FF4A 

C 6 

02 


LDA E 

#VRITC 

WRITE COMM FORMATTER 

01332 

FF4C 

F7 

6800 


STA B 

FORMAD 


•1333 

FF4F 

BD 

FE12 


JSR 

CHECK 


•1334 

FF52 

24 

03 


ECC 

* + 5 


•1335 

FF54 

7E 

FE7 8 


JMP 

CHERRT 


01336 

FF57 

F6 

6800 

EUSYW 

LDA B 

FORMAD 


•1337 

FF5A 

2B 

FB 


BMI 

EUSYV 

EUSY 

01338 

FF5C 

F6 

FI IB 


LDA B-^— STATUS 

CHBCK~OM VRI TE? - 

01339 

FF5F 

C 5 

40 


BIT B 

#$40 


01340 

FF61 

27 

05 


EEQ 

VIE 

NO! 

01341 

FF63 

BD 

FE7C 


JSR 

READ1S 


^ 01342 

FF66 

25 

04 


BCS 

WRERRT 

ERROR? 

01343 

FF68 

5F 


VIE 

CLR B 



01344 

FF69 

7E 

FDE0 

WRTN 

JMP 

DISRET 


01345 

FF6C 

7A 

F1 23 

WRERRT 

DEC 

TRY 


01346 

FF6F 

26 

04 


BNE 

WEI 


01347 

FF7 1 

C6 

06 


LDA B 

#6 

WRITE ERROR 

01348 

FF73 

20 

F 4 


BRA 

WRTN 


01349 




* 




01350 

FF75 

3F 


WEI 

FCB 

$3F >06 

FULXJ COPY X AGAIN 

01351 

FF77 

3F 



FCB 

$3F,05 

PSHX 

01352 

FF7 9 

7E 

FF03 


JMF 

WRIT1 


01353 




* 




01354 

FF7C 

37 


CCNSEC 

PSH B 


— . 

01355 

FF7D 

16 



TAB 



01356 

FF7E 

58 



ASL B. 


MULTIPLY TOTAL BY 3 

01357 

FF7F 

IB 



ABA 



01358 

FF80 

81 

13 

COM 

CMP A 

#19 


01359 

FF82 

23 

04 


PL S 

CONEND 


t 01360 

FF84 

80 

14 


SUP A 

#20 


W 01361 

FF86 

20 

F 8 


ERA 

CONT 
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KEEBUG2 


Wge 


01362 

FF88 

4 D 

CONEND 

TST A 


ZERO? 

01363 

FF89 

26 02 


EKE 

* + 4 


01364 

FF8B 

86 1-3 

LDA A 



01365 

FF8D 

4A 


DEC A 



01366 

FF8E 

33 


PUL E 



01367 

FF8F 

39 


RTS 
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